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SBEGIN NTOERASE,000,NFSNETWORK,<NETWORK ERASE FILE> 


~MPARRBARARARAAAAAAALASASLALALALALA SALADS ERASE ASSESSES ASE SEERA SERRA EERE RRA SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

® 

® 

® 

® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
® 

® 

® 

® 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* @aeeneeneeeneneeeeneeeenanne 


LARRARARAAASAAASLALASALASARSALEAALASASERARARARA RESALE R RASA RSAA RARER A ARRAS AS SD OD 


++ 
Facility: RMS 


Abstract: 


This module communicates with the file access Listener at the remote 
node to erase (delete) the specified file. 


Environment: VAX/VMS, executive mode 
Author: James A. Krycka, Creation Date: 09-DEC-1977 
Modified By: 


V03-003 JAKO138 28-MAR-1984 
Call modified NISEXCH. rycee routine with a parameter. 


v03-002 KRM0109 Malik 12-May-1983 
Update to camer DAP V7.0 message exchange sequence. 


COOCOCOCOCOCOCSOCOCSOSOSOCOSSOCOSOOCOCOCOCOOOSCOOOOOCOOOOOOOOOOoCoOS 
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~SBTTL DECLARATIONS 


: Include Files: 


SDAPPLGDEF ; Define DAP prologue symbols 

SDAPHDRDEF ; Define DAP message header 

SDAPCNF DEF 3; Define DAP Configuration message 

SDAPACCDEF ; Define DAP Access message 

SDAPNAMDEF ; Define DAP Name message 

SIFBDEF ; Define IFAB symbols 

SNWADEF ; Define Network Work Area symbols 
Macros: 

None 


Equated Symbols: 


Sete Ge Ge Ge Se Se 


ASSUME DAP$Q_DCODE_FLG EQ 0 
ASSUME NWASQ"FLG EO 0 


Own Storage: 
None 


polo lololololololeleololeoleolololelolololololololo) 
SOOOCSOSCOCSOSOSOOCOSOOSOOOCOOCOOOOOSoOO 
lelelelelelelelelelelelelelololeleloelolololololo) 
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Se Ge Ge Ge Ge 


NTOERASE NETWORK ERASE dbs 
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NTSERASE = P 


ILE 15-SEP-1984 23:59:56 YAX/VMS Macro V04-00 p | NIC 
RFORM NETWORK ERASE FUNCTIO 'S-SEP=-1984 16:30:46 ERMSSRCINTOERASE MAR: 1 or 


-SBTTL NTSERASE = PERFORM NETWORK ERASE FUNCTION 


NTSERASE = enga 


ges Peas dialogue with the remote FAL to erase (delete) 
the speci 37 


; Calling Sequence: 
BSBW NTSERASE 


F 
F 
0 
09 3 
0 4 3¢ 

4 5 ‘ | 

000 BY: | 

00 8 ° | 

00 9; 

00 0 ; 
000 91; 
0000 3g : ; Input Parameters: 
44 9 ; 

00 94 ; R8 FAB address 
0000 95 : Rg IFAB address 
0000 96 ‘ R10 FWA address 
0000 97 : R11 Impure Area address 
0000 98 : 
0000 99 ; Implicit Inputs: 
0000 100 : 
0000 101 ; FABSL_NAM 
0000 i ; IFBSL_NWA_PTR 
0000 103 ; 

0000 104 ; Output Parameters: 

0000 105 ; 

0000 106 : RO Status code (RMS) 

0000 107 ; R1i-R7 Destroyed 

0000 108 ; AP Destroyed 

0000 109 : 

0000 110 : Implicit Outputs: 

0000 111 : 

0000 6 3 Resultant name string | 

0000 = 11 : 

0000 114 ; Completion Codes: 

0000 115 : 7 

0000 116; Standard RMS completion codes 

0000 117; 

0000 118 ; Side Effects: 

0000 119; | 

0000 130 3 None 

0000 121; 

0000 122 ;-- | 

0000 123 i | 

0000 124 NISERASE:: ; Entry point 

44 125 $TSTPT NTERASE 3 
57 3¢€ A9 00 OOOA : § MOVL IFBSL_NWA_PTR(R9) ,R7 3; Get address of NWA (and DAP) | 

OOA 128 ;+ 
000k 133 ; Exchange DAP Configuration messages with FAL and determine DAP buffer size. 
000A 131° | 

50 04 0 OQO0A 13 MOVL #DAPSK_ERASE RO : Denote type of file access 
FFFO' 30 Q00D 1 BSBW NTSEXCA_CNF ; Exchange Configuration messages 
60 50 +=€E9 ot 13 BLBC RO,EXIT ; Branch on failure 

01 1 3+ 
tt 137 | 3; Next build a request mask (NWASW_DISPLAY) that will be used in the Acce 
001 138 ; message to request that optional DAP messages be returned by FAL. For SERASE, 


NTOERASE 
v04-000 


00D0 ¢7 


eae! a qia a cee het A te ge, eae oe a | Pe 
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SERAS 
; the Name message is the only candidate. | 


BUILD_MASK: 
CLRL 


- Build NWASW_DISPLAY 
BSBW = NTSSCAN_NAMBLK 


Initialize request mask 
Scan user Name Block and check FAL's 
capabilities to update request mask 


E 
E 
139 
140 
14 
0 36 
9 14 
0 144 
0018 14 
E9 0018 146 BLBC RO,EXIT Branch on failure 
BO 8 5 ii MOVW R2,NWASW_DISPLAY(R7) Save request mask 
0020 149 5+ — 
8° 8 139 ; Build and send DAP Access message to partner. 
0020 13 
O50 153 SEND_ACC: 3 
0020 154 SSETBIT #NWASV_LAST_MSG, (R7) ; Declare this last message to block 
DO 0024 155 MOVL PSK _ACC . ; Get message type value 
30 0027 156 BSBW NTSB H ; Construct message header 
90 002A 157 MOVB #DAPSK_ERASE, (R5)+ ; Store ACCFUNC field 
90 002D 158 MOVB § #DAPSMNONFATAL,(R5)+ ; Store ACCOPT field | 
30 6039 122 BSBW NTSGET_FILESPEC 3 fh Age ey as a counted 
: strin 
3¢ 6©60033)~—s«161 MOVZWL NWASW_DISPLAY(R7),R1 ; Get request sesh 
13 0038 196 BEQL 10$ ; Branch if nothing set , 
B46 O03A 16 CLRW (R5)+ ; Store dummy FAC and SHR fields 
30 O003C 164 BSBW NTSCVT_BN4_EXT ; Store DISPLAY as an extensible field 
30 OO3F 165 108: BSBW NTSBUICD TAIL ; Finish building message 
30 ek 166 BSBW NTSTRANSAIT ; Send Access message to FAL 
E9 004 167 BLBC RO,EXIT ; Branch on failure 
0048 168 
0048 169 ;+ 
0048 170 ; Receive DAP (resultant) Name message from partner. 
0048 171 ;:- 
0048 176 
0048 173 RECV_NAM: : 
BS 004 174 TSTW NWASW_DISPLAY(R7) ; Branch if Name message was not 
13 0046C 175 BEQL RECV 3. requeste 
poet 176 SSETBIT #DAPSK_NAM_MSG,DAPSL_MSG_MASK(R7) 
005 177 ; Expect response of Name message 
30 0053 178 BSBW NTSRECEIVE : Get reply from FAL 
FS 0056 6179 BLBC RO,EXIT ; Branch on failure 
0 4 13 BSBwW NT$DECODE_NAM ; Process resultant name string 
005¢ 186 3* 
OOSC 1835 ; Receive DAP Acknowledge message from partner. 
005C 184 ;- 
Opec 185 
OSC 186 RECV_ACK: : 
E1 O005C 187 BBC #DAPSV_GEQ_V70,(R7),- ; Acknowledge message required if 
OOSF 38 R : partner uses DAP since V7.0 
0060 i189 SSETBIT #DAPSK_ACK_MSG,DAPSL_MSG_MASK(R7) 
0065 190 3; Expect response of Acknowledge message 
30 0065 191 BSBW NTSRECEIVE ; Get reply from FAL 
E9 0068 136 BLBC RO,EXIT ; Branch on failure 
068 19 
068 194 ;+ 
068 195 ; Receive DAP Access Complete message from partner to terminate the reply 
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68 196 ; sequence. 
6B 197 ;- 
68 198 
68 199 RECV_CMP: ; 
$ 0 $SETBIT #DAPSK_CMP_MSG,DAPSL_MSG_MASK(R7) | 
0 1 ; Expect response of Access Complete msg 
FF8D* 30 007 ¢ BSBW NTSRECEIVE ; Get reply from FAL 
05 th + EXIT:  RSB ; Exit with RMS code in RO 
0074 205 - END ; End of module 


-SEP- 259: AX/VMS Macro v04-00 Page 
NTOERASE a yawn Seen BSEp= 1984 10:20:46 PANS SRCINTOERASE AAR; ? &) 
Symbol table 9 
. AP$Q_SYSCAP 

$5.PSECT EP mae t'44'4''4 44 DAPSO-SySPEC a9 38 
SSRMSTE — = 0000001 DAP$V_GEQ_V70 s ¢8 
serme BU = 99000008 DAPSW~BUFSIZ 004 | 
gate FA a = 8000009 DAPSW-DISPLAY1 oo000¢¢ 
BUILD-RA R 000 13 R 01 DAPS$W_PARTNER 44 4 
DAP$B_ACCFUNC 90000066 DAP$W_VERSION 29000073 P 01 
ee 0000035 1FBSL_NWA_PTR = 0000003¢ 
DAPSB_BITCN $33 NTSBUTLD READ teeeeere =X 01 | 
yrs eties Ba 000001 NTSBUILD“TAIL teeeeres =X 01 
DAPSB_DCODE_MAC 454 4d NTSCVT_BRG EXT aeeeeeee X01 
DAPSB_DCODE "MSG 444 NTSDECODE RAM teeeeeee X 01 
DAPSB_DECV tittitre: NISERASE ~ 00000000 R¢ 01 
DAP$B_EC 44454444 NTSEXCH CNF eeteteee . wo 
PAPEETE IL 80000043 NISGET FILESPEC aeneeeee =X Ot 
aed 30000034 NTSSCAN_NAMBLK teneeree X01 | 
DAPSB-LENGTA 80000033 NTSTRANSMIT eetees ys fie OM | 
yes 00000040 NWASB_ALLXABCNT 9000011¢ 
ers Seth ge 0000004 NWASB-DAP_RAC 000000C9 | 
eres tt Ae 90000043 NWASB~FILESYS 000000¢5 | 
DAES STR 00000032 NWASB-KEYXABCNT 000001 1D 
ete 00000030 NWASB-NETSTRSIZ 000001 6F 
DAPS$B_TYPE 00000046 NWA$B_NODBUF S1Z 00000168 
DAPSB_USRNUM 0000048 NWASB ORG 000000C6 
DAPSB_USRVER itd NUASB~OSTYPE 00006 1¢4 
DAPSB_VERNUM 0000002 NWASB REM 000000C7 
OSE aCWeee 000000¢ NWASB-RMS_RAC 000000¢8 

$C_"BCN 0000000 NWASC_BLN™ 00000800 
DAPSK_ACC_MSG = 00000006 NWASK_BLN 06000800 
Oe OAT ~ 900000C0 NWASL~ALLXABADR 00000100 | 

-8 = 00000007 NWASL~DATXABADR 00000104 | 

DAPSK_CMP_MSG = 00000004 NWASL DEV 000000C0 
DAPSK ERASE = 0000000F NWASL~FHCXABADR 00000108 
BAP TCNOK 00000030 NUASL~KEYKABADR 9000010¢ 
er beaae tt 00000018 NUASL~PRORABADR 90000110 
rhea BY 0000001¢ NUASL-RDTXABADR 90000114 | 
or et ieee 00000080 NWASLSAVE_FLGS 00000128 | 
SyrStgg 00000090 NWASL~SUMXABADR 00000118 | 
DAPSL_TEMP = 00000008 NWASL” THREAD OOOOO0F C 
DAPSM_DF TSPEC = 000 NWASL_XLTBUFFLG 99000 c | 
ewan = 9900000 NWASLIXLTCNT 0000 
DAPSH_GET = 0000001 NWASL~XL TMAXINDX 00000234 | 
ane = 00000010 NUASLIXLTSIZ 00000230 | 
DAP SA_RS = 99000001 NWASQ-ACS 0000244 | 
DAP SA SCOREWTE = 0000004 NWASQ™B I GBUF 0000170 
DAPSM_ SEGMENT = Booohese ASQBLD 00000F 0 
DAPSM_TMP1$ = of 3 ASO7FLG 99000 90 

Peo" pcose ~ 90000060 NUASQ~ NODE 00025¢ 
DAPSQ"DCODE_FL 44g NWASQ10SB 000008 
DAP$Q_F ILESPEC 0 0 NWA$SQ LNODE 38 
preety ea 0000010 NWASQ7LOGNAME 000023¢ 
DAPSO-NARESPEC 9000044 NYASQ_NCB 00000066 
DAP$Q_ PASSWORD 00000050 NWASQ_RCV 
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NWASQ_SAVE DESC 000120 
NWASQ_XLTBOF 00024C 
NUASQ"XLTBUF2 $ 54 
=XMT E8 
NWAST_ACSBUF 00026 
NWAST_AUXBUF 444 3 
AST_DAP 00000 
NWAST_I BU B88 ant 
NWAST_ITM_ATTR 00 
NWAST—ITM~END 00000224 
NWAST_ITM_LST 0000 8 
AST—1TM_MAXINDX 9000 1 
NWAST-ITM-STRING 0 43 
NWAST_NCBBUF 0000052C¢ 
AST_NODEBUF 00000169 
NWAST-RCVBUF 000001A0 Pha: 
AST_SCAN 4454 9h 4 > sa 
AST_TEMP 00000120 Ini! 
NWAST_XLTBUF 1 SORE Com 
NWAST_XLTBUF 2 000003AC Pas: 
NWAST_XMTBUF 0000030 Sym 
NWASV_LAST_MSG = 00000000 Pas 
“BUILB 000000D2 Syml 
NWASW_DAPBUF SIZ OQOOO00CA Pse 
NWASW_DIR_OF 000000CC Cro: 
NWASW =PISPLAY 00000000 Assi 
NWASW_FIL_O OOOO00CE 
NWASW_ “NLEAB.OP 0000011€ | The 
PIOSA T eeeerere x 01 607( 
RECY KCK 0000005C R 01 The: 
RECV_CMP 00000068 R 01 284 
RECV- 00000048 R 01 | 2? | 
SEND _ACC 00000020 7. 01 
TPTSC_NTERASE teeneene 01 
| 
$eewwnwnnnnnoeeee + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes -$3 
rom mmmmmmm oo lllllllt—~s—s—s—ssSsisisisi‘(‘(SCi‘( lie Ae a ee em me am ema ams lip ee ee ee a ee ee A EL A } 7 
, a 00000000 < 0.) 00 ¢ 0. ) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE ToT, 
NF SNE TWORK 00000074 ( 116.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS$ 00000800 ( 2048.) 02 < d: ) NOPIC USR CON ABS LCL NOSHR- EXE 


RD WRT NOVEC BYTE 139! 


Initialization 7 00:00:00.11 00:00:01.47 
Command processing 11 8:08: 9-37 0: 8393-28 
Pass 1 231 :00:07.04 0:00:19.4 
Symbol table sort 0 :00:00.84 a St 4 
Pass 8 1.20 0:00:03.23 
Symbol tabie output 1 0.14 0:00:00.37 
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Psect s sis output 1 00:00:00. 0:00:00.03 

tresemreterence output 9 09:09:00:00 00 00:00-00 

Assembler run totals 45 0:00:09. 0:00:31. 

The working set Limit was 1200 pages. 

33521 bytes (66 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 589 non-local and 5 local symbols. 


205 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
19 pages of virtual memory were used to define 18 macros. 


memo en anme wren eranecon eae ew ey 


: Macro Library statistics ; 


Macro Library name Macros defined 
_$255$DUA28: (RMS .OBJJRMS.MLB; 1 10 
$255S$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 14 


794 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOERASE/OBJ=OBJ$:NTOERASE MSRC$:NTOERASE/UPDATE=(ENHS$:NTOERASE) +L 1B$:RMS/LIB 
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